home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / contest90 / INFESTER.RED < prev    next >
Encoding:
Text File  |  1991-08-13  |  2.3 KB  |  75 lines
  1. ;
  2. ;    Warrior: Infester
  3. ;  File name: infester.red
  4. ; Tournament: ICWST'90
  5. ;   Standard: CWS'88
  6. ;     Author: Gerald Frost
  7. ;
  8. ;  Procedure: standard crawl-around-in-the-core 
  9. ;               warrior but, it is rather nasty
  10. ;
  11. start     MOV    n           100           ; hate to waist free shots
  12.           MOV    n          -100
  13.           MOV    n           200
  14.           MOV    n          -200
  15.           MOV    n           300
  16.           MOV    n          -300
  17.           MOV    n           400
  18.           MOV    n          -400
  19.           MOV    n           500
  20.           MOV    n          -500
  21.           MOV    n           600
  22.           MOV    n          -600
  23.           MOV    n           700
  24.           MOV    n          -700
  25.           MOV    n           800
  26.           MOV    n          -800
  27.           MOV    n           900
  28.           MOV    n          -900
  29.           MOV    n           1000
  30.           MOV    n          -1000
  31.           MOV    n           1100
  32.           MOV    n          -1100
  33.           MOV    n           1200
  34.           MOV    n          -1200
  35.           MOV    n           1300
  36.           MOV    n          -1300
  37.           MOV    n           1400
  38.           MOV    n          -1400
  39.           MOV    n           1500
  40.           MOV    n          -1500
  41.           MOV    n           1600
  42.           MOV    n          -1600
  43.           MOV    n           1700
  44.           MOV    n          -1700
  45.           MOV    n           1800
  46.           MOV    n          -1800
  47.           MOV    n           1900
  48.           MOV    n          -1900
  49.           MOV    n           2000
  50.           MOV    n          -2000
  51.           MOV    n           2100
  52.           MOV    n          -2100
  53.           MOV    n           2200
  54.           MOV    n          -2200
  55.           MOV    n           2300
  56.           MOV    n          -2300
  57.           MOV    n           2400
  58.           MOV    n          -2400
  59.           SPL                top
  60. copy      MOV  # 12          n
  61.           MOV  # 0           from
  62.           ADD    to          to
  63. loop      MOV  < from      < to
  64.           DJN    loop        n
  65.           SPL    copy
  66.           JMP  @ to
  67. to        DAT              # 2617
  68. top       MOV  #-15          bombme
  69. again     MOV    to        @ bombme
  70.           DJN    again     < bombme
  71. from      DAT              # 0
  72. n         DAT              # 12
  73. bombme    DAT              #-15
  74.           END    start
  75.